From: ej-32u <ej32u@protonmail.com>
Date: Sat, 5 Sep 2020 12:12:22 +0000 (+0200)
Subject: Display name with with spaces, but keep symbol name underneath
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~5466
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e0c77bb62c1c950a82ea0517646d989dc5c1fe27;p=emacs.git

Display name with with spaces, but keep symbol name underneath

* lisp/cus-edit.el (custom-unlispify-menu-entry): Display the
pretty name, but keep the real symbol name as the value (bug#41905).

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 23ceb3a857a..59ac52f0a40 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -561,7 +561,8 @@ value unless you are sure you know what it does."
 	   (unless no-suffix
 	     (goto-char (point-max))
 	     (insert "..."))
-	   (buffer-string)))))
+	   (propertize (symbol-name symbol)
+                       'display (buffer-string))))))
 
 (defcustom custom-unlispify-tag-names t
   "Display tag names as words instead of symbols if non-nil."